home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh16a.d64
/
ls 8
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
3KB
|
81 lines
100 REM SPRITEDATEN LINKS GEHEN
110 REM
120 REM BELEGT BLOECKE 136-143
130 REM
140 PRINT"[147]SPRITE-DATEN 2 WERDEN UEBERTRAGEN."
150 REM **********PHASE 1**************
160 FOR N=8704 TO 8766:READ Q:POKE N,Q:NEXT
170 DATA 0,10,0,0,42,128,1,70,128
180 DATA 1,85,160,0,85,160,0,21,8
190 DATA 0,7,0,0,15,0,0,61,64
200 DATA 0,255,80,0,255,212,1,255,212
210 DATA 5,255,80,5,63,64,0,42,0
220 DATA 0,170,0,2,175,128,2,131,160
230 DATA 2,128,229,2,144,53,21,81,84
240 REM **********PHASE 2**************
250 FOR N=8768 TO 8830:READ Q:POKE N,Q:NEXT
260 DATA 0,10,0,0,42,128,1,70,128
270 DATA 1,85,160,0,85,160,0,21,40
280 DATA 0,7,0,0,15,0,0,61,192
290 DATA 0,253,64,0,255,64,0,255,80
300 DATA 1,255,64,1,125,64,0,105,0
310 DATA 0,170,0,0,175,0,0,174,128
320 DATA 0,163,160,0,40,228,1,85,84
330 REM **********PHASE 3**************
340 FOR N=8832 TO 8894:READ Q:POKE N,Q:NEXT
350 DATA 0,10,0,0,42,128,1,70,128
360 DATA 1,85,160,0,85,160,0,21,32
370 DATA 0,7,8,0,15,0,0,61,192
380 DATA 0,253,192,0,253,112,0,253,112
390 DATA 0,245,240,0,53,192,0,22,128
400 DATA 0,234,0,0,235,0,0,42,128
410 DATA 0,43,64,0,10,64,1,85,64
420 REM **********PHASE 4**************
430 FOR N=8896 TO 8958:READ Q:POKE N,Q:NEXT
440 DATA 0,10,0,0,42,128,1,70,128
450 DATA 1,85,160,0,85,160,0,21,40
460 DATA 0,7,0,0,15,0,0,61,192
470 DATA 0,245,192,0,245,240,0,245,240
480 DATA 0,215,240,0,87,192,0,106,128
490 DATA 0,234,0,2,234,0,2,186,128
500 DATA 0,174,160,0,84,160,1,85,80
510 REM **********PHASE 5**************
520 FOR N=8960 TO 9022:READ Q:POKE N,Q:NEXT
530 DATA 0,10,0,0,42,128,1,70,128
540 DATA 1,85,160,0,85,168,0,21,32
550 DATA 0,7,0,0,15,0,0,61,192
560 DATA 0,245,192,0,245,240,0,215,240
570 DATA 0,87,244,1,95,212,1,106,128
580 DATA 0,42,128,0,174,128,2,178,160
590 DATA 2,176,169,2,176,41,21,80,85
600 REM **********PHASE 6**************
610 FOR N=9024 TO 9086:READ Q:POKE N,Q:NEXT
620 DATA 0,10,0,0,42,128,1,70,128
630 DATA 1,85,160,0,85,168,0,21,32
640 DATA 0,7,0,0,15,0,0,61,192
650 DATA 0,245,192,0,245,240,0,245,240
660 DATA 0,245,240,0,215,208,0,86,144
670 DATA 0,42,128,0,234,128,0,174,128
680 DATA 0,174,128,0,43,160,5,85,80
690 REM **********PHASE 7**************
700 FOR N=9088 TO 9150:READ Q:POKE N,Q:NEXT
710 DATA 0,10,0,0,42,128,1,70,128
720 DATA 1,85,160,0,85,160,0,21,40
730 DATA 0,7,0,0,15,0,0,61,192
740 DATA 0,253,192,0,253,112,0,253,112
750 DATA 0,245,240,0,245,192,0,22,128
760 DATA 0,42,128,0,42,128,0,42,128
770 DATA 0,40,224,0,40,244,0,85,84
780 REM **********PHASE 8**************
790 FOR N=9152 TO 9214:READ Q:POKE N,Q:NEXT
800 DATA 0,10,0,0,42,128,1,70,128
810 DATA 1,85,160,0,85,160,0,21,32
820 DATA 0,7,8,0,15,0,0,61,192
830 DATA 0,253,64,0,253,112,0,255,80
840 DATA 0,255,80,0,253,64,0,117,64
850 DATA 0,42,128,0,42,128,0,171,160
860 DATA 0,160,228,0,160,20,5,81,80
870 REM *******************************
880 PRINT"SPRITE-DATEN 2 SIND INSTALLIERT!"
890 END